1 REM  *** NEW PROTOCOL ***
2 REM  RELEASE 1: JUL 31 1984
3 REM  BY STEVE PUNTER
10 IFPEEK(49152)<>169THENLOAD"TERM.C1",8,1
20 OPEN5,2,0,CHR$(6):POKE665,75:GET#5,A$:BS=255
30 TY$="PSP"
40 PRINT"[147][207]PTION:         [194]LOCK [211]IZE ="BS""
50 PRINT"   1 - [212]RANSMIT A [198]ILE"
60 PRINT"   2 - [210]ECEIVE A [198]ILE"
62 PRINT"   3 - [195]HANGE [194]LOCK [211]IZE"
63 PRINT"   4 - [212]ERMINAL [205]ODE"
70 GETA$:IFA$=""THEN70
80 IFA$="1"THEN1000
90 IFA$="2"THEN2000
92 IFA$="3"THEN3000
93 IFA$="4"THENPRINT"[212]ERMINAL [205]ODE:":GOTO4000
100 GOTO70
1000 PRINT"[208]ROGRAM [206]AME? ";:GOSUB5000:IFI$=""THEN4000
1010 OPEN2,8,0,I$:PRINT
1020 SYS49173:POKE51227,1:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO4000
1030 SYS49173:POKE51224,BS:SYS49158:CLOSE2:GOTO4000
2000 PRINT"[211]AVE [193]S? ";:GOSUB5000:IFI$=""THEN4000
2010 SYS49173:SYS49161:IFPEEK(512)=1THEN4000
2020 T$=","+MID$(TY$,PEEK(51227),1)+",W"
2030 OPEN2,8,2,"@0:"+I$+T$:FORX=1TO1300:NEXTX:PRINT:SYS61310
2040 SYS49173:SYS49155:CLOSE2:FORX=1TO1000:POKE668,PEEK(667):GOTO4000
3000 PRINT"[194]LOCK [211]IZE? ";:GOSUB5000:IFI$=""THEN40
3010 BS=VAL(I$):IFBS<40THENBS=40
3020 IFBS>255THENBS=255
3030 GOTO40
4000 PRINT
4010 SYS49173:SYS49167:GOTO40
5000 I$=""
5010 PRINT" [146][157]";
5020 GETA$:IFA$=""THEN5020
5030 IFA$=CHR$(13)THEN5100
5040 IFA$=CHR$(20)THEN5080
5050 IFLEN(A$)>20THEN5020
5060 IF(ASC(A$)AND127)<32THEN5020
5070 PRINTA$;:I$=I$+A$:GOTO5010
5080 IFLEN(I$)=0THEN5020
5090 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO5010
5100 PRINT" ":RETURN